home *** CD-ROM | disk | FTP | other *** search
Wrap
ItemType: WIND Rect: 170,133,470,293 Style: Dialog HasTitleBar: TRUE HasZoomBox: FALSE Name: Programme Registration Result: i3_Text ItemType: TEXT Rect: 8,62,86,78 Name: Label Text: User Name: ItemType: TEXT Rect: 8,95,80,111 Name: Label Text: Password: ItemType: TEXT Rect: 96,59,294,81 Name: UserName LockText: FALSE ItemType: TEXT Rect: 96,92,294,114 Name: Password LockText: FALSE ItemType: PICT Rect: 252,6,293,49 Name: Cath SW Logo 2 ItemType: PUSH Rect: 218,132,290,152 Name: OK DefaultItem: TRUE Script: put wsget(wdname,3,text) into wdun¬put wsget(wdname,4,text) into wdpw¬if getcbal(wdun,wdpw) = "Legit" then¬ wssend wdname,0,close¬else¬ reperror wdname,"Incorrect Name or Password !"¬end if ItemType: PUSH Rect: 119,132,199,152 Name: Cancel CancelItem: TRUE AutoClose: TRUE